home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 February / Ahoy_Magazine_88-02_1988_Double_L.d64 / smart merge 128 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  1.4 KB  |  40 lines
  1. 100 rem ** 128 smart merge from ahoy! **
  2. 110 rem *(f)abricated by shawn k. smith*
  3. 120 :             (NULL) 15              :
  4. 130 s$="$1400":tc=24438:r$=chr$(18)
  5. 140 print"[147]",">>> 128 smart merge[146] <<<
  6. 150 [133]"store at";s$:s[178][197](s$):[139]s[167]160:[213]s[178][197]([196]([209]([202](s$,2))))
  7. 160 h[178]s[173]256:[139]h[179][177][181](h)[176]h[178]0[167][144]
  8. 170 [129]d[178]s[164]s[170]255:[135]y$:c[178][209](y$):t[178]t[170]c
  9. 180 [151]d,c:[130]:[153]:[139]t[178]tc[167]200
  10. 190 [153]r$"?? recheck data!";t;tc:[144]
  11. 200 [129]m[178]s[164]d:[139][194](m[170]2)[178]20[167][139]([194](m)[178]141[176][194](m)[178]173)[167][151]m[170]2,h
  12. 210 [130]:[151]s[170]135,h:[151]s[170]152,h:[153]
  13. 220 [153]"to merge: sys";s:[128]
  14. 230 [131] a5,2d,85,fb,48,a5,2e,85,fc,48
  15. 240 [131] a0,00,68,85,2e,68,85,2d,b1,2d
  16. 250 [131] 48,c8,b1,2d,f0,10,48,c8,b1,2d
  17. 260 [131] 8d,70,11,c8,b1,2d,8d,71,11,18
  18. 270 [131] 90,e0,68,ad,10,12,85,fd,ad,11
  19. 280 [131] 12,85,fe,ad,00,03,8d,8e,14,ad
  20. 290 [131] 01,03,8d,8f,14,20,81,92,0d,46
  21. 300 [131] 49,4c,45,4e,41,4d,45,20,3d,3e
  22. 310 [131] 00,20,93,4f,86,3d,84,3e,20,80
  23. 320 [131] 03,aa,f0,4d,8c,12,02,a0,0f,b1
  24. 330 [131] 3d,99,02,02,88,10,f8,a9,f0,8d
  25. 340 [131] 00,02,a9,22,8d,01,02,ad,02,03
  26. 350 [131] 8d,90,14,ad,03,03,8d,91,14,a9
  27. 360 [131] 92,8d,02,03,a9,14,8d,03,03,4c
  28. 370 [131] dc,4d,00,00,00,00,a9,cc,8d,00
  29. 380 [131] 03,a9,14,8d,01,03,ad,90,14,8d
  30. 390 [131] 02,03,ad,91,14,8d,03,03,20,b7
  31. 400 [131] ff,c9,40,d0,1e,a9,00,85,5c,85
  32. 410 [131] 5d,8d,73,11,a9,0a,8d,72,11,18
  33. 420 [131] 6d,70,11,8d,70,11,90,03,ee,71
  34. 430 [131] 11,4c,68,5b,2c,a2,80,ad,8e,14
  35. 440 [131] 8d,00,03,ad,8f,14,8d,01,03,8a
  36. 450 [131] 30,13,a5,fd,8d,10,12,a5,fe,8d
  37. 460 [131] 11,12,a0,02,a9,00,91,2d,88,10
  38. 470 [131] fb,a5,fb,85,2d,a5,fc,85,2e,a9
  39. 480 [131] 00,85,7a,6c,00,03
  40.